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BY JOE PEOPLES 
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UNDERSCORES 



Input the following 



FOR T 



TO ZB; 



2 clear ; gosub 71 

3 clear ; input " 

4 if P>2goto 3 

5 input " GAME 

6 Z=1 ; M=0; N=0; K 

7 BC=9 
B if Z=1FC=127 

9 if Z=2FC=199 

10 D=0;for A=lto 3;clear ;NT=0 

1 1 gosub 55 

12 CY=-7;print "GAME T0",#0,G 

13 CY=-16;print ".PLAYER 

14 print "_#_l";print "_#_2 

15 CY=-24 j CX=-47 ; pr i nt #0,M 

16 if P=lgoto IB 

17 CX=-47;print #0,N 

IB box -45 ,-24,70,26,3 

19 if (M>G-1 ) + (N>G-1 ) goto 63 

20 box -75,20,1, 27, libox -74,20, 1 ,23, 1 j box - 
73,20,1,15, 1 ; box -72,20, 1,9, 1 ;box -71,20,1,1, 
1 

21 if Z=lCY=-24 

22 if Z=2CY=-32 

23 CX=0; print H __UP 

24 Q=KN ( Z ); 0=0+9+22 ; NT=0 

25 CY=Qj CX=65; print " — 

26 box 65,0,16,10,2 

27 if TR ( Z ) NT= 1 ; D=D+ 1 ; gosub 58;goto 29 

28 goto 24 

29 for B=65to -65step -5 

30 Q=Q+rnd <3>-2+JY(Z> 

31 CY=Q;CX=B 

32 box B-6,Q,6, 1 , 1 ;print "=< 

33 box B+23,0,25, 14, 2; 17077 

34 if Z=1K=K+1 

35 if Z=2L=L+1 

36 if Q=20X=25; gosub 75 



if Q>7if Q<llX=rnd (5) 
if Q>29if Q<33X=rnd (5) 
if 0>llif Q< 15X=rnd <5>+5 
if 0< 29if Q>25X=rnd (5) +5 
if Q>15if 0<19X=rnd (5)+10 
if Q< 25if Q>21X=rnd <5>+10 



data list prior to running 



the game of DARTS: 



INPUT *(T1l 


NEXT T 




49 


if TR(Z)goto 51 




50 


goto 49 




51 


next A 




52 


Z=Z+1 j i f P=1Z=1 




53 


if Z>2Z=1 




54 


goto 7 




55 


CY=-8;CX=0; print "-=< -=< -=< 




56 


if Dgoto 58 




57 


return 




5B 


CY— 8;CX=0 




59 


if D=lprint " " 




60 


if D=2print " " 




61 


if D=3print " " 




62 


return 




63 


BC=rnd (32) xB; FC=rnd (32)xB-2 




64 


CY=30;CX=-30; print "THE WINNER" j CX=-6 


5 pr i 


nt 1 


'PLAYER.#.", 




65 


if M>G-lprint "l";CX=-10;print "WITH 


”,#0 


,K, 






66 


if N>G-lprint "2";CX=-10;print "WITH 


",#0 


,L, 






67 


if M>Nprint ".DART" , ; if K>lprint "S 




6B 


if N>Mprint ".DART",; if L>lprint "S 




69 


if TR (Z ) run 




70 


goto 69 




71 


CY=0; CX=-12; print "DARTS 




72 


for H=lto 500; next H 




73 

I 


for I=10to BOstep 4; box 0,0,1+22,1,3; 


next 


74 


for H=lto 1000;next H;return 




75 


for T=0to 28; TA=» (T) +100; TB=RM; f or VA 


= 15t 



o lstep -1 | VB*VA-1 j next VA;next T; return 
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. UNDERSCORES 



2 clear ; gosub 71 

3 clear ; input "__1_0R_2_PLAYERS"P 

4 if P>2goto 3 

5 input " GAME.PO I NT> " G 

6 Z=1 ; M=0; N=0; K=0; L=0 

7 BC=9 

8 if Z=1FC=127 

9 if Z=2FC*199 

10 D=0;for A=lto 3;clear ;NT=0 

11 gosub 55 

12 CY=-7;print "GAME T0",#0,G 

13 CY=-16;print ".PLAYER 

14 print "_#_l";print "_#_2 

15 CY=-24;CX=-47; print #0,M 

16 if P=lgoto IB 

17 CX=-47;print #0,N 

18 box -45,-24,70,26,3 

19 if (M>G-1 ) + (N>G-1 ) goto 63 

20 box -75 ,20,1,27,1; box -74,20, 1 ,23, 1 ; box - 
73,20,1, 15, l;box -72,20, 1 ,9, l;box -71,20,1,1, 

21 if Z=lCY=-24 

22 if Z=2CY=-32 

23 CX=0; print "__UP 

24 Q=KN ( Z > ; Q=Q+9+22 ; NT=0 

25 CY=Q; CX=65; print " — 

26 box 65,0,16,10,2 

27 if TR(Z)NT=1 ;D=D+l;gosub 58;goto 29 

28 goto 24 

29 for B=65to -65step -5 

30 Q=Q+rnd (3)-2+JY(Z) 

31 CY=Q;CX=B 

32 box B-6,Q,6, 1 , 1 ; print "=< 

33 box B+23,Q,25, 14,2; 17077 

34 if Z=1K=K+1 

35 if Z-2L-L+1 

36 if Q=20X=25; gosub 75 




i 






Lis . V • • _ 



37 if Q>7if Q<llX=rnd <5) 

38 if Q>29if Q<33X*rnd (5) 

39 if Q > 1 1 i f Q< 15X=rnd (5)+5 

40 if Q<29if Q>25X-rnd (5) +5 

41 if Q>15if Q<19X»rnd (5)+10 

42 if Q<25if Q>21X=rnd (5) +10 

44 if (Q>33)+ (Q<7) X=0 

45 if Z=1M=M+X 

46 if Z=2N=N+X 

47 CY=32;CX=-17; print "POINTS 

48 CX=-4;print #0,X 

49 if TR (Z) goto 51 

50 goto 49 

51 next A 

52 Z=Z+1 ; if P=1Z=1 

53 if Z>2Z=1 

54 goto 7 

55 CY=-8;CX=0; print "-=<_-=<_-=< 

56 if Dgoto 58 

57 return 

58 CY— B;CX=0 

59 if D=lprint " 11 

60 if D=2print " " 

61 if D=3print " 

62 return 

63 BC=rnd <32>xB;FC»rnd (32)xB-2 

64 CY=30;CX=-30; print "THE WINNER" ; CX=-6; pri 
nt "PLAYER.#.", 

65 if M>G-lprint "1 "; CX=-10; print "WITH_",#0 



66 if N>G-iprint "2";CX=-10;print "WITH_",#0 

, 

67 if M>Nprint ".DART" , ; i f K>lprint "S 

68 if NXMprint ".DART",; if L>lprint "S 

69 if TR(Z)run 

70 goto 69 

71 CY=0;CX=-12; print "DARTS 

72 for H=lto 500; next H 

73 for I=10to BOstep 4;box 0,0, 1+22, I ,3; next 

74 for H*=lto 1000; next H; return 

75 for T=0to 28; TA=*(T) +100; TB=RM; f or VA=15t 
o lstep -1 ; VB=VA-1 ; next VA;next T; return 
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